home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest90 / BASILISK.RED next >
Encoding:
Text File  |  1991-08-13  |  1.9 KB  |  37 lines
  1. ;
  2. ;    Warrior: Basilisk
  3. ;  File name: basilisk.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: James T. McMahon - Renfrew / Ontario / Canada
  7. ;
  8. LEFTCLAW   DAT   0                     ; POINTER TO FIRST ATTACK POSITION
  9. RIGHTCLAW  DAT   2                     ; POINTER TO SECOND ATTACK POSITION
  10. HOWFAR     DAT   63                    ; HOW FAR TO ATTACK BEFORE RESETING
  11. HOWMANY    DAT   18                    ; HOW MANY TIMES TO ATTACK
  12. STONE      SPL   STONE                 ; STOP AN ENEMY IN IT'S TRACKS
  13. CLAW       DAT   0                     ; KILL AN ENEMY
  14. ATTACK     SUB # 127        LEFTCLAW   ; SET FIRST ATTACK POSITION
  15.            SUB # 129        RIGHTCLAW  ; SET SECOND ATTACK POSITION
  16.            ADD # 129        LEFTEYE    ; SET THIRD ATTACK POSITION
  17.            ADD # 127        RIGHTEYE   ; SET FOURTH ATTAK POSITION
  18.            MOV   CLAW     @ LEFTCLAW   ; CLAW FIRST ATTACK POSITION
  19.            MOV   CLAW     @ RIGHTCLAW  ; STONE SECOND ATTAK POSITION
  20.            MOV   STONE    @ LEFTEYE    ; STONE THIRD ATTACK POSITION
  21.            MOV   STONE    @ RIGHTEYE   ; CLAW FOURTH ATTACK POSITION
  22.            DJN   ATTACK     HOWFAR     ; AT END OF ATTACK RUN
  23.            MOV # 63         HOWFAR     ; RESET HOWFAR TO ATTACK
  24.            SUB # 184        LEFTCLAW   ; RESET FIRST ATTACK POSITION
  25.            SUB # 58         RIGHTCLAW  ; RESET SECOND ATTACK POSITION
  26.            ADD # 58         LEFTEYE    ; RESET THIRD ATTACK POSITION
  27.            ADD # 184        RIGHTEYE   ; RESET FOURTH ATTACK POSITION
  28.            DJN   ATTACK     HOWMANY    ; AT END OF ATTACK PROCESS
  29. GOBBLE     MOV   CLAW     < CLAW       ; CLAW AN ENEMY
  30.            DJN   GOBBLE   < CLAW       ; KEEP ON CLAWING
  31.            ADD # 3          CLAW       ; RESET CLAW
  32.            JMP   GOBBLE                ; CONTINUE CLAWING
  33. LEFTEYE    DAT   3                     ; THIRD ATTACK POSITION
  34. RIGHTEYE   DAT   4                     ; FOURTH ATTACK POSITION
  35.            END   ATTACK
  36.  
  37. N